; ORIGINAL: 3dt2.1/examples/schemers/std-view.scm
;;
;; std-view.scm
;;
;; Establishes a standard ISO view.
;;
;; Edward C. Martin, Schemers Inc.
;; 28 November 1993
;;

(define std-view
  (let ((vw (view:dl 1 1 300 300)))
    (view:set (position 50 -100 50) (position 0 0 0) (gvector 0 0 1))
    (view:set-title "Standard View")
    vw))

;; end of file  std-view.scm
